<%
function removeInject(strWords) 
	dim badChars, newChars, i
	badChars = array("select", "drop", ";", "--", "insert", "delete", "xp_", "or") 
	newChars = strWords 
	for i = 0 to uBound(badChars) 
	newChars = replace(newChars, badChars(i), "") 
	next 
	newChars = newChars 
	newChars= replace(newChars, "'", "''")
	newChars= replace(newChars, " ", "")
	newChars= replace(newChars, "'", "|")
	newChars= replace(newChars, "|", "''")
	newChars= replace(newChars, "\""", "|")
	newChars= replace(newChars, "|", "''")
	removeInject=newChars
end function 
%>